<script>on mouseUpset the cursor to "watch"if lowMemMsg() then exit to hypercardif the number of cds of this bg < 4 thenAsk "Enter the subject of the new discussion…"if it is empty then exit mouseupif the number of cds of this bg is 1 and bg fld "head" is empty thenput it into bg fld "Head"elsedomenu "New Card"put it into bg fld "Head"set the cantdelete of this card to falseopencardend ifelseAnswer "There are already a maximum of four topics."&¬" If you want another discussion, delete one you don’t want and/or export the file." with "OK"end ifend mouseUp</script>
</part>
<part>
<id>26</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>268</left>
<top>15</top>
<right>314</right>
<bottom>30</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Delete</name>
<script>on mouseUpset the cursor to "watch"if lowMemMsg() then exit to hypercardAnswer "Are you sure you want to delete this discussion? Once you delete it you cannot undo it." with "Delete" or "Cancel"if it is "Delete" thenlock screenLMRset the cantmodify of this stack to falseset the userlevel to 5if the number of cds of this bg Γëá 1 thendomenu "Delete Card"elseput empty into bg fld "head"put empty into bg fld "maintext"end ifgo last cd of bg id 15622set the userlevel to 2opencardend ifend mouseUp</script>
</part>
<part>
<id>27</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>318</left>
<top>16</top>
<right>365</right>
<bottom>30</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Export</name>
<script>on mouseUpset the cursor to "watch"if lowMemMsg() then exit to hypercardask file "Export this discussion to what text file?" with bg fld "Head"if it is empty then exit mouseupput it into filenameput "ΓÇóΓÇóΓÇó Express Yourself Bulletin Board Discussion: "&bg fld "Head"&" ΓÇóΓÇóΓÇó"&return&return& bg fld "maintext" into stuffopen file filenamewrite stuff to file filenameclose file filenameend mouseUp</script>
</part>
<part>
<id>28</id>
<type>button</type>
<visible> <true /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>368</left>
<top>15</top>
<right>407</right>
<bottom>30</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <true /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Print</name>
<script>on mouseUpif lowMemMsg() then exit to hypercardACLUprintend mouseUp</script>
</part>
<part>
<id>29</id>
<type>field</type>
<visible> <true /> </visible>
<dontWrap> <false /> </dontWrap>
<dontSearch> <true /> </dontSearch>
<sharedText> <false /> </sharedText>
<fixedLineHeight> <false /> </fixedLineHeight>
<autoTab> <false /> </autoTab>
<lockText> <true /> </lockText>
<rect>
<left>427</left>
<top>14</top>
<right>473</right>
<bottom>31</bottom>
</rect>
<style>transparent</style>
<autoSelect> <false /> </autoSelect>
<showLines> <false /> </showLines>
<wideMargins> <false /> </wideMargins>
<multipleLines> <false /> </multipleLines>
<reservedFamily> 0 </reservedFamily>
<titleWidth>0</titleWidth>
<icon>0</icon>
<textAlign>center</textAlign>
<font>Geneva</font>
<textSize>9</textSize>
<textStyle>condense</textStyle>
<textStyle>outline</textStyle>
<textHeight>12</textHeight>
<name>Count</name>
<script></script>
</part>
<part>
<id>30</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>416</left>
<top>14</top>
<right>431</right>
<bottom>31</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>15420</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Prev</name>
<script>on mouseUpplay stopplay "click"visual wipe left fastgo prev cdend mouseUp</script>
</part>
<part>
<id>31</id>
<type>button</type>
<visible> <false /> </visible>
<reserved5> 0 </reserved5>
<reserved4> 0 </reserved4>
<reserved3> 0 </reserved3>
<reserved2> 0 </reserved2>
<reserved1> 0 </reserved1>
<enabled> <true /> </enabled>
<rect>
<left>469</left>
<top>14</top>
<right>484</right>
<bottom>31</bottom>
</rect>
<style>transparent</style>
<showName> <false /> </showName>
<highlight> <false /> </highlight>
<autoHighlight> <true /> </autoHighlight>
<sharedHighlight> <false /> </sharedHighlight>
<family>0</family>
<titleWidth>0</titleWidth>
<icon>16560</icon>
<textAlign>center</textAlign>
<font>Chicago</font>
<textSize>12</textSize>
<textStyle>plain</textStyle>
<name>Next</name>
<script>on mouseUpplay stopplay "click"visual wipe right fastgo next cdend mouseUp</script>
<script>on ACLUrefsprepToMovepass ACLUrefsend ACLUrefson ACLUwriteprepToMovepass ACLUwriteend ACLUwriteon PrepToMoveglobal triggerCardput the name of this cd into triggerCardend PrepToMoveon opencardset the cantmodify of this stack to falseset usermodify to trueset the userlevel to 2set the lockText of bg fld "maintext" to trueset the lockText of bg fld "NewMSG" to falseput empty into fld "newMSG"show fld "newMSG"if the id of cd 1 of this bg is the id of this cd thenhide bg btn "prev"elseshow bg btn "prev"end ifif the id of last cd of this bg is the id of this cd thenhide bg btn "next"elseshow bg btn "next"end ifput the number of cd 1 of this bg into start -- start countput (the number of this cd+1) - start into cdNoput (cdNo)&" of "¬&(number of cds in this bg) into bg fld "count"end opencardon commandKeydown whichkeyif whichKey is "x" thendomenu "Cut Text"exit commandkeydownend ifif whichKey is "z" thendomenu "Undo"exit commandkeydownend ifif whichKey is "c" thendomenu "Copy Text"exit commandkeydownend ifif whichKey is "v" thendomenu "Paste Text"exit commandkeydownend ifif whichkey is "N" thenclick at the loc of bg btn "New"exit commandkeydownelsepass commandkeydownend ifend commandKeydownon closebackgroundglobal bbsUserName,BTstatusput empty into bbsUserNameput empty into bg fld "NewMSG"set the cantmodify of this stack to trueset the userlevel to 1set the textarrows to false-- set the blindtyping to BTstatusend closebackgroundon openbackgroundglobal arrowkeySTATEput "nav" into arrowkeySTATEset the cantmodify of this stack to falseset the userlevel to 2set the textarrows to trueset the blindtyping to falseend openbackgroundon addMessageglobal bbsUserNameif fld "newMSG" is empty then exit addmessageAsk "Save message to the discussion log?"&return&"You must enter a name to add this message…" with bbsUserNameif it is empty thenexit addMessageelseput it into bbsUserNameend ifput the number of chars in bg fld "mainText" into discSizeput the number of chars in fld "newMsg" into newStringif discSize + newString > 30000 thenend ifput the abbrev date&&the time&&"/signed: "&bbsUserName&return&bg fld "NewMSG"&return&return¬before bg fld "MainText"put empty into bg fld "NewMSG"end addMessageon mousedownglobal arrowkeySTATEput "nav" into arrowkeySTATEend mousedownon arrowkey whichglobal arrowKeySTATEif arrowkeySTATE is "nav"then exit arrowkeyelse pass arrowkeyend arrowkey</script>
